## Import All Snow Pit Data
file.list <- list.files(pattern='*.xlsx', recursive = TRUE)
name.list <- list.files(pattern='*.xlsx', recursive = TRUE) %>%
gsub('PitSheets/pits_', '',.) %>%
gsub('.xlsx', '',.)
for (i in seq_along(file.list)){
sheet_nm <- excel_sheets(file.list[i])
for (j in seq_along(sheet_nm)){
assign(x = paste0("pits_", name.list[i]), value = bind_rows(lapply(setNames(sheet_nm,sheet_nm), function(x) read_excel(file.list[i], sheet =x, skip = 7)),.id = "pit"))
}
}
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
## New names:
## * `-` -> `-...8`
## * `-` -> `-...11`
pits_list <-mget(ls(pattern = "pits_.*"))
all_pits <- bind_rows(pits_list, .id = "date") %>%
mutate(date = str_remove(date, "pits_"), date = as.POSIXct(date, format = "%Y%m%d"), date = as.Date(date)) %>%
select(-c(10,13))
## New names:
## * `-...8` -> `-...9`
## * `-...11` -> `-...12`
## New names:
## * `-...8` -> `-...9`
## * `-...11` -> `-...12`
## New names:
## * `-...8` -> `-...9`
## * `-...11` -> `-...12`
## New names:
## * `-...8` -> `-...9`
## * `-...11` -> `-...12`
## New names:
## * `-...8` -> `-...9`
## * `-...11` -> `-...12`
## New names:
## * `-...8` -> `-...9`
## * `-...11` -> `-...12`
## New names:
## * `-...8` -> `-...9`
## * `-...11` -> `-...12`
## New names:
## * `-...8` -> `-...9`
## * `-...11` -> `-...12`
## New names:
## * `-...8` -> `-...9`
## * `-...11` -> `-...12`
## New names:
## * `-...8` -> `-...9`
## * `-...11` -> `-...12`
## New names:
## * `-...8` -> `-...9`
## * `-...11` -> `-...12`
## New names:
## * `-...8` -> `-...9`
## * `-...11` -> `-...12`
## New names:
## * `-...8` -> `-...9`
## * `-...11` -> `-...12`
## New names:
## * `-...8` -> `-...9`
## * `-...11` -> `-...12`
## Temperature profiles
temp_prof<- ggplot(all_pits) +
geom_path(aes(x = temp_C, y= heightAG, color = date, linetype = pit)) +
ggtitle("Snow Pit Temp Profiles")
ggplotly(temp_prof)
## Snow Pit Density
pit_avg <- all_pits %>%
mutate(density_avg = rowMeans(.[,5:7], na.rm = TRUE), perm_avg = rowMeans(.[,8:9], na.rm = TRUE)) %>%
group_by(date, pit) %>%
summarise(SDmax = max(heightAG, na.rm = TRUE), density_avg = mean(density_avg, na.rm = TRUE), perm_avg = mean(perm_avg, na.rm = TRUE)) %>%
mutate(weight = (SDmax/100)*1.5*(SDmax/100)*1.5*density_avg)
## `summarise()` has grouped output by 'date'. You can override using the
## `.groups` argument.
totalweight = sum(pit_avg$weight)